defining functions in scheme language